mob
mob
	proc
		orcracestart(var/mob/M)
			var/X1 = rand(855,1000)
			var/Y1 = rand(788,350)
			usr.loc = locate(X1,Y1,1)
			usr.Race = "Orcs"
			var/mob/Monsters/OrcEscort/Escort = new
			Escort.loc = locate(usr.x+1,usr.y+1,usr.z)
			Escort.Owner = usr
			Escort.HomeLoc = Escort.loc
			Escort.ReturnHome2()
			var/mob/Monsters/Wagon/W = new
			W.loc = usr.loc
			W.Owner = usr
			W.Gender = null

			var/obj/Items/Ingots/MetalIngot/Ingot1 = new
			Ingot1.loc = W
			W.weight += Ingot1.weight
			Ingot1.suffix = "(Carrying)"
			var/obj/Items/Ingots/MetalIngot/Ingot2 = new
			Ingot2.loc = W
			W.weight += Ingot2.weight
			Ingot2.suffix = "(Carrying)"
			var/obj/Items/Ingots/MetalIngot/Ingot3 = new
			Ingot3.loc = W
			W.weight += Ingot3.weight
			Ingot3.suffix = "(Carrying)"

			var/obj/Items/woods/wood/Log1 = new
			Log1.loc = W
			W.weight += Log1.weight
			Log1.suffix = "(Carrying)"
			var/obj/Items/woods/wood/Log2 = new
			Log2.loc = W
			W.weight += Log2.weight
			Log2.suffix = "(Carrying)"
			var/obj/Items/woods/wood/Log3 = new
			Log3.loc = W
			W.weight += Log3.weight
			Log3.suffix = "(Carrying)"

			var/obj/Items/Skins/DeerSkin/Skin1 = new
			Skin1.loc = W
			W.weight += Skin1.weight
			Skin1.suffix = "(Carrying)"
			var/obj/Items/Skins/DeerSkin/Skin2 = new
			Skin2.loc = W
			W.weight += Skin2.weight
			Skin2.suffix = "(Carrying)"
			var/obj/Items/Skins/DeerSkin/Skin3 = new

			var/obj/Items/ores/stone/brick1 = new
			brick1.loc = W
			W.weight += brick1.weight
			brick1.suffix = "(Carrying)"
			var/obj/Items/ores/stone/brick2 = new
			brick2.loc = W
			W.weight += brick2.weight
			brick2.suffix = "(Carrying)"
			var/obj/Items/ores/stone/brick3 = new
			brick3.loc = W
			W.weight += brick3.weight
			brick3.suffix = "(Carrying)"

			Skin3.loc = W
			W.weight += Skin3.weight
			Skin3.suffix = "(Carrying)"
			var/mob/Monsters/Orc/B = new
			B.loc = usr.loc
			B.Owner = usr
			B.Gender = "Male"
			B.Age = 20
			W.destination = B
			var/obj/Items/Food/Meats/UnCookedDeerMeat/SD = new
			SD.loc = B
			SD.suffix = "(Carrying)"
			var/obj/Items/Furniture/Beds/SleepingBag/SB = new
			SB.loc = B
			SB.suffix = "(Carrying)"
			var/T = input("What Name Will You Give Your [B.Gender] Creature?")as null|text
			if(!T)
				if(B.Owner)
					T = pickname("orc",B.Gender)
					B.name = "{[B.Owner]} [T]"
			else
				if(B.Owner)
					B.name = "{[B.Owner]} [T]"
			usr.UnitList += B
			var/obj/Items/Weapons/Picks/PickAxe/P = new
			P.M = "Metal"
			P.CraftRank = "Poor Quality"
			P.MetalWeaponCraft()
			P.loc = B
			P.suffix = "(Carrying)"
			var/obj/Items/Weapons/Axes/MetalOrcAxe/A = new
			A.M = "Metal"
			A.CraftRank = "Poor Quality"
			A.MetalWeaponCraft()
			A.loc = B
			A.suffix = "(Carrying)"
			var/obj/Items/Armours/Shields/WoodenBuckler/A1 = new
			A1.M = "Metal"
			A1.CraftRank = "Poor Quality"
			A1.MetalArmourCraft()
			A1.loc = B
			A1.suffix = "(Carrying)"
			B.weight = 75
			var/mob/Monsters/Orc/B2 = new
			B2.loc = locate(usr.x+1,usr.y,usr.z)
			B2.Owner = usr
			B2.Gender = "Female"
			B2.Age = 20
			B2.icon = 'OrcFemale.dmi'
			var/obj/Items/Furniture/Beds/SleepingBag/SB2 = new
			SB2.loc = B2
			SB2.suffix = "(Carrying)"
			var/obj/Items/Food/Meats/UnCookedDeerMeat/M2 = new
			M2.loc = B2
			B2.icon_state = "Normal"
			M2.suffix = "(Carrying)"
			var/T2 = input("What Name Will You Give Your [B2.Gender] Creature?")as null|text
			if(!T2)
				B2.name = "{[B2.Owner]}"
			else
				B2.name = "{[B.Owner]} [T2]"
			usr.UnitList += B2
			var/obj/Items/Weapons/Picks/PickAxe/P2 = new
			P2.M = "Metal"
			P2.CraftRank = "Poor Quality"
			P2.MetalWeaponCraft()
			P2.loc = B2
			P2.suffix = "(Carrying)"
			var/obj/Items/Weapons/Axes/MetalOrcAxe/s = new
			s.M = "Metal"
			s.CraftRank = "Poor Quality"
			s.MetalWeaponCraft()
			s.loc = B2
			s.suffix = "(Carrying)"
			var/obj/Items/Armours/Shields/WoodenBuckler/A2 = new
			A2.M = "Metal"
			A2.CraftRank = "Poor Quality"
			A2.MetalArmourCraft()
			A2.loc = B2
			A2.suffix = "(Carrying)"
			B2.weight = 75
			var/mob/Monsters/Orc/B3 = new
			B3.loc = locate(usr.x+2,usr.y,usr.z)
			B3.Owner = usr
			B3.Gender = "Male"
			B3.Age = 20
			var/obj/Items/Furniture/Beds/SleepingBag/SB3 = new
			SB3.loc = B3
			SB3.suffix = "(Carrying)"
			var/obj/Items/Food/Meats/UnCookedDeerMeat/M3 = new
			M3.loc = B3
			M3.suffix = "(Carrying)"
			var/T3 = input("What Name Will You Give Your [B3.Gender] Creature?")as null|text
			if(!T3)
				B3.name = "{[B3.Owner]}"
			else
				B3.name = "{[B.Owner]} [T3]"
			usr.UnitList += B3
			var/obj/Items/Weapons/Picks/PickAxe/P3 = new
			P3.M = "Metal"
			P3.CraftRank = "Poor Quality"
			P3.MetalWeaponCraft()
			P3.loc = B3
			P3.suffix = "(Carrying)"
			var/obj/Items/Weapons/Axes/MetalOrcAxe/w = new
			w.M = "Metal"
			w.CraftRank = "Poor Quality"
			w.MetalWeaponCraft()
			w.loc = B3
			w.suffix = "(Carrying)"
			var/obj/Items/Armours/Shields/WoodenBuckler/A3 = new
			A3.M = "Metal"
			A3.CraftRank = "Poor Quality"
			A3.MetalArmourCraft()
			A3.loc = B3
			A3.suffix = "(Carrying)"
			B3.weight = 75
			B.icon_state = "Normal"
			B2.icon_state = "Normal"
			B3.icon_state = "Normal"
			B.icon = 'OrcMale.dmi'
			B2.icon = 'OrcFemale.dmi'
			B3.icon = 'OrcMale.dmi'
			B.Birth()
			B2.Birth()
			B3.Birth()
			usr.Done = 1
			usr.User = 1
			alert("Forever have the orcs roamed the lands of this world in nomadic tribes, searching for the perfect place to settle down. Upon reaching [WorldName] the orcs decided they liked it and soon discovered others did also, as the leader of your orc tribe you must decide which races, if any, are worthy of staying in your land and who should be removed, for if you are to create the perfect tribe there can be no room for weakness!")
